home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Video Toaster 4.3
/
Video Toaster v4.3.iso
/
3.1
/
toasterall
/
arexx_examples
/
lwm
/
bbox.lwm
< prev
next >
Wrap
Text File
|
1993-06-08
|
800b
|
29 lines
/* CMD: Bounding Box
* Display Bounding Box info, optionally create box for standin Obj. */
/* By Arnie Cachelin © 1993 NewTek Inc. */
libadd = addlib("LWModelerARexx.port",0)
signal on error
signal on syntax
CurLay=curlayer()
box=boundingbox() /* Should check out empty list ... */
parse var box n x1 x2 y1 y2 z1 z2
s1="!Layer "CurLay": " n" Points"
s2="!Object Bounds"
s3='@'x1 y1 z1
s4='@'x2 y2 z2
if notify(2,s1,s2,s3,s4,'!Create Bounding Box?',"(UNDO to remove object)") then do
/* Cut and Paste so that 'undo' will remove object, leave box */
call CUT()
call MAKEBOX(x1 y1 z1,x2 y2 z2)
call PASTE()
end
if (libadd) then call remlib("LWModelerARexx.port")
exit
syntax:
error:
t=Notify(1,'!Rexx Script Error','@'ErrorText(rc),'Line 'SIGL)
if (libadd) then call remlib(mxx)
exit